цомал кеывордс: (VERSION 0.14) // -- ALLOWS COMMENTS IN A PROGRAM //[] абс -- GIVES THE ABSOLUTE VALUE абс() анд -- LOGICAL анд анд аппенд -- START AT END OF SEQ FILE опен [филе] ,,аппенд атн -- ARCTANGENT IN RADIANS атн() ауто -- AUTOMATIC LINE NUMBERING ауто [][,] басиц -- BACK INTO басиц MODE басиц цасе -- MULTIPLE CHOICE DECISIONS цасе [оф] цат -- GIVES DISK DIRECTORY цат [] цхаин -- LOAD & RUN PROGRAM ON DISK цхаин цхр$ -- GIVES THAT NUMBERS CHARACTER цхр$() цлосе -- CLOSES FILES цлосе [[филе] ] цлосед -- PROC/FUNC VARIABLES LOCAL проц [(PARAMS)] [цлосед] фунц [(PARAMS)] [цлосед] цон -- CONTINUE PROGRAM EXECUTION цон цос -- COSINE IN RADIANS цос() дата -- PROVIDES DATA FOR A реад дата [,][,...] дел -- DELETES LINES дел делете -- DELETES A FILE FROM DISK делете дим -RESERVE STRING/ARRAY SPAC дим оф дим () оф дим () диж -- DIVISION WITH INTEGER ANSWER диж до -- DO THE FOLLOWING STATEMENTS до едит -- LIST LINES, NO INDENTATION едит [] елиф -- SHORT FOR елсе иф CONDITION елиф [тхен] елсе -ALTERNATIVE иф STRUC STATEMENTS елсе енд -- HALT PROGRAM EXECUTION енд ендцасе -- END OF цасе STRUCTURE ендцасе ендфор -- END OF фор STRUCTURE ендфор [] ендфунц -- END OF FUNCTION ендфунц [] ендиф -- END OF иф STRUCTURE ендиф ендпроц -- END OF PROCEDURE ендпроц [] ендвхиле -- END OF вхиле STRUCTURE ендвхиле ентер -- MERGE PROGRAM FROM DISK ентер еод -- еND оF дATA FLAG еод еоф -- еND оF фILE FLAG еоф() есц -- STOP KEY PRESSED FLAG есц трап есц еьец -- EXECUTE A PROCEDURE [еьец] [()] еьп -- NATURAL LOG E TO N еьп() фалсе -- PREDEFINED VALUE = 0 фалсе филе --SPECIFIES A FILE IS TO BE USED инпут филе [,]: принт филе [,]: реад филе [,]: врите филе [,]: опен [филе] ,[,] цлосе [[филе] ] фор -- START OF фор LOOP STRUCTURE фор :=<1ST> то [степ ] фунц -- START OF A MULTILINE FUNCTION фунц [()] [цлосед] гото -- GO TO LINE WITH THIS NAME гото